home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Leonardo the Inventor
/
Leonardo The Inventor (93026)(Broderbund)(Riverdeep)(2004).iso
/
LEOWINMV
/
SHARED.DIR
/
03090_Script_XOBJS OPEN-CLOSE
< prev
next >
Wrap
Text File
|
1996-04-01
|
726b
|
27 lines
-- --------------------------------------------------------
-- Handler openXObjHandler opens the given xobj in the xobject
-- folder.
on openXObjHandler whichXobj
if the machinetype = 256 then
set xobjPath = the pathName & "XObjs\" -- PC
else
set xobjPath = the pathName & "XObjs:" -- Mac
end if
openXlib xobjPath & whichXobj
end
-- --------------------------------------------------------
-- Handler closeXObjHandler closes the given xobj in the xobject
-- folder.
on closeXObjHandler whichXobj
if the machinetype = 256 then
set xobjPath = the pathName & "XObjs\" -- PC
else
set xobjPath = the pathName & "XObjs:" -- Mac
end if
closeXlib xobjPath & whichXobj
end